From: Ilias Tsitsimpis <iliastsi@debian.org>
Date: Mon, 19 Feb 2024 16:12:25 +0000 (+0100)
Subject: Fix installation patch for iserv/unlit
X-Git-Tag: archive/raspbian/9.6.6-2+rpi1~2^2^2^2~12
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=61e133723ed8378baeaf15c84f5afa32cb6199c2;p=ghc.git

Fix installation patch for iserv/unlit

Bug: https://gitlab.haskell.org/ghc/ghc/-/issues/22557
Bug: https://gitlab.haskell.org/ghc/ghc/-/issues/22697


Gbp-Pq: Name hadrian-iserv
---

diff --git a/hadrian/src/Packages.hs b/hadrian/src/Packages.hs
index d1b49c35..51e6956c 100644
--- a/hadrian/src/Packages.hs
+++ b/hadrian/src/Packages.hs
@@ -192,7 +192,7 @@ programPath context@Context {..} = do
     -- See: https://github.com/snowleopard/hadrian/issues/570
     -- Likewise for @iserv@ and @unlit@.
     name <- programName context
-    path <- if package `elem` [iserv, touchy, unlit]
+    path <- if package `elem` [touchy, unlit]
               then stageLibPath stage <&> (-/- "bin")
               else stageBinPath stage
     return $ path -/- name <.> exe